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MODULE object (IDENT="V04-000") = 
BEGIN 


! 
Vee eRe TEREEEEE 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY Sy en be THe kk WITH THE TERMS OF SUCH H_TH 
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ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
' t 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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!® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 
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'e4¢ 
FACILITY: The MESSAGE compiler 
ABSTRACT: 
This compiler translates a message definition Lenguege 
and produces object modules suitable for the $SGETMSG 
system service. 
ENVIRONMENT : 


VAX/VMS operating system. unprivileged user mode, 
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Oe AUTHOR: Tim Halvorsen, Nov 1979 
4 O44 : Modified by: 
6 046 i V03-004 GJA0096 Greg Awdziewicz 10-Aug-1984 
4 bee - Change version # written into object module to v04-00. 
9 049 ‘ v03-003 GJA0079 Greg Awdziewicz 6-Apr-1984 
? Bey Initialize flags byte in Create_indirect. 
4 b3¢ i v03-002 GJA0050 Greg Awdziewicz 12-Sep-1983 
sf : Reference the filename descriptor as a byte block structure 
$ bee } instead of as a longword vector. 
$ 0056 i 001 JWT0024 Jim Teague 17-Mar-1982 : 
005 : Corrects the bug which prevented pointer psects from being 
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output when /notext is explicitly specified. 
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! Table of contents 


FORWARD ROUTINE 


output_object, 
create_ och ten, 
create_indirect, 
output_mhd, 
output_psects, 
output_gsd, 
output _section, 
output_eom, 
set_psect, 
put_record, 
start_record, 
put_entry, 
end_record; 


Macros 


per form(command) 
BEGIN 


LOCAL status; 
status = command; 
If NOT .status 
THEN 


SI 

ap 

EN 
END2; 


; Literals 


LITERAL 


EGIN 
GNAL(.status); 
TURN .status; 


Output 
Create 


Put obj 


Be P3:t8:2i — UmScriucsee’s 


object module 

message section 

indirect message section 
module header record 
psect definitions 

global symbol records 


selected psect 
ect record to file 


Start of GSD/TIR record 


Output 
End of 


GSD/TIR entr 
GSD/TIR entries 


psect_flags = ops$m_pic OR gps$m_rel OR gps$m_rd OR gps$m_vec: 


Module storage 


section: 
record buffer: 
rec_filled; 


External storage 


EXTERNAL 


BBLOCK obj $c_max 


! Address of message section 
recsiz), : 
! Space used in record_buffer so far 


!' record buffer 
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s 127 6¢ 1 object_fab: BBLOCK, ! Object module FAB 

3 8 ? 1 ob ect arab: BBLOCK / BP ect edule RAB 

: 1 , | cli_flags BITVECforR, i ¢ qual er flags 

: 150 65 1 module_name: VECTOR ! Seas 9 object mo ule 

; 151 $8 1 filename_desc: BLOCK ¢, BYTE), ! pee stits eter, 4 (rate value 

: 4 67 1 facil ty. gheader, ; Ff ead 

2 1 poeeere Reader, : nessage, } ‘head 

a 1 symbol Reader, ' Symbol List hea 

3; ise 1 num eeeeegehe ! Number of feaeen es defined 

TS rn ms9_sp ace ' Total space used by MSG cocerds 

4 72 1 “facilities, i Number of facilities define 

es 3 f 1 tec” space, ' Total space nesded or acl ity table 

5 1 verSion_num: VECTOR, ; Pesce iptor for version/ident 
: 140 oe num_files; ! Total files parsed 
: 182 oF 1 

; 128 0378 1°! External routines 

3: «6146 0379 1! 

: 145 0380 1 

: 146 0381 1 EXTERNAL ROUTINE 
> 147 $404 1 get_module_name, ! Extract module name 

> 148 0385 1 rms_error, ! Signal RMS-type error 
: «149 0384 1 allocate; ! Allocate dynamic memory 
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GLOBAL ROUTINE output_object = 


This routine generates the object module file from the 
message definition blocks generated by input parse routines. 


' 
1 
: 
Inputs: 

‘ object_fab/rab = FAB/RAB for object module file 
! facilify_header = Facility List head 

message _Reader = Message definition list head 
Outputs: 

! 

1 


The object module file 


LOCAL 
status; 


status code 
! Create the object module file 


status = SCREATE (FAB = object_fab); Create the output file 


IF NOT .status ! If error detected, 
THEN 
BEGIN f . 
rms error (emsg(openout) ,object_fab); ' then signal the error 


ae TOnte .Status; ' and return with status 


status = SCONNECT (RAB = object_rab); ! Connect to the object fiics 
ud _ -Status ! If error detected, 
BEGIN ’ 
rms error (emsg(openout) ,object_fab,object_rab); ! then signal it 


oe (Ones -Status; ‘and return with status 


eat GTR 1 ! If more than 1 input file, 
get_module_name(object_fab); ! Use object file name as module name 


Create the index message structure in dynamic storage. 


ul ~ nas -cli_flags Cqual_file] ! If /FILE not specified, 
an gg OP FOrmterocte_soctiants? ! Create the message structure 
perform(create_indirect()); ' Else, create indirect section 
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Output the module header record 


perform(output_mhd()); ! Output the module header record 


i Define the psects used for the message section. If 
; constructing an indirect message section, make the psects 
writable. 


if vd -cli_flags Cqual_file) ! If /FILE qualifier not specified, 


gr ag? Ot Toretoutout poets (paost, flags)? ! Make normal NOWRT 
perform(output_psects(psect_flags OR gps$m_wrt)); ! Make indirect WRT 


' 
Output the GSD records for the symbols 


4 gol flags Cqual_symbols] ! If /SYMBOLS specified, 


perform(output_gsd()); ! Output the GSD records 


Output the TIR records which describe the message structure 


fF ctl tftege Cqual_text] OR .cli_flags Cqual_file] ! If /TEXT or /FILE 


perform(output_section()); ! Output section TIR records 
| Output the end-of-module record 
perform(output_eom()); ! Output the EOM record 
| Close the object module file 


status = SCLOSE(FAB = object_fab); ' Close the file 
IF NOT .status ! If error, 
THEN 

BEGIN 


rms error(emsg(closedel) ,object_fab); ! signal the error 
+4 -Status; ' and return with status 


RETURN true; 
END; 
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\V04-000\ 
SOWNS ,NOEXE ,2 


AB, OBJECT_RAB 
§ ModuL E_RAME 
FACILITY HEADER 
DER. SYMBOL_READER 
SG_SPACE 


C 
ries” FAC SPACE 
FICES 


F 
G 
E AEA 
“AESSAGES 

FACILIT 
“MOD LEN 
“ERROR ATE 
CREATE, AE YSSCONNECT 
SYSS$CL 
SCODES,NOWRT,2 
OUTPUT_OBJECT, Save R2,R3,R4,a5 
CLI_FLAGS, RS 
OBJECT FAB, R4 
#1, SYSSCREATE 
RO, STATUS 
STATUS, 1 
R4 
#9900196 
13$ 
OBJECT_RAB 
#1, SYSSCONNECT 
RO, STATUS 
STATUS, 2$ 
OBJECT “RAB 


#9900196 
#3, RMS_ERROR 


NUM_FILES, #1 
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; Routine Size: 
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#2, CLI_FLAGS, 6$ 
i TSP) 


#905, =(SP) 
#1, QOUTPUT_PSECTS 
0; STAT 


STA 
#1, LIBSSIGNAL 
STATUS, RO 


R4 
#1, SYSSCLOSE 
RO, STATUS 
STATUS, 158 
#9900570 

#2, RMS_ERROR 
STATUS, “RO 


#1, RO 
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re 4 ROUTINE create_section = 
1 amo 
67 
6 This routine creates the message section exactly as 
6 : it will look when Linked into the user image. The 
70 } resulting structure will be output as TIR records to 
f} } the object module. 
a ; Inputs: 
75 : facility _header = ,iet head for facility Got inittons 
7 : message Reader = List head for message definitions 
7 } num_messages = Number of message definitions in the List 
78 : msg_space = Space used by MSG records alone 
79 : num facilities = Number of facility definitions in the List 
80 fac_space = Space needed for facility tabie 
; 
i] 
i 
' 


usable_size = bucket_size-bucket_overhead, ! Useable space in each bucket 


entry size = 8, : 
entries_per_blk = usable_size/entry_size, 
max_ilevel = 3*bucket_size; ! Maximum size of 1 level index 

! before 2 level index will be created 


Size of each ndex entry 


81 

Hy Outputs: 

84 r0 = status (unsignaled) 

+H section = Address of final message section 

87 

88 BEGIN 

89 

90 LITERAL 

91 bucket_size = 512, ! Size of each index bucket 
4 bucket_overhead = midx$c_entries, ! Overhead in each bucket 
94 

95 


LOCAL 


00 prim_index_len, Length of primary index 
0 sec_index_Ten, Length of secondary index (0 if none) 
0 sec_index_bkts, # buckets in secondary index 


section_size, Total size of message section 


SSsss 
wr 


' 

i 

' 
04 rim_index: REF VECTOR, ' Current position in primary index 
05 ucket: REF BBLOCK, ' Address of current index bucket 
06 bucket_filled, ! Bytes allocated in current bucket 
07 data: REF BBLOCK, ' Address of next available data byte 
08 code: REF BBLOCK, ' Address of current CODE block 
09 fac: REF BBLOCK, ' Address of current FAC block 

status; ' Status code 


MACRO 
round _diy(i,j) = 
(Ti/}) + ((i MOD j) NEQ 0))%; ! i/j rounded up if remainder GTR 0 
iv -Num_messages LEQ 0 ! If no messages defined, 


RETURN emsg(nomsgs); ! then return with error 
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' Compute the amount of space needed to hold the index 


and text portions of the message section. 


prim_index_len = .mum_messages * entry_size + bucket_overhead; 
Hr ogra. indenter GTR max_ilevel ! If index too Large, 


BEGIN ! Setup a 2 level index 
sec_index_bkts = round_div(.num_messagestentry_size,usable_size); 


sec_index_len = .num_messages * entry_size ! Size of secondary index 
+ .sec_index_bkts * bucket_overhead; ! plus bucket overhead 


prim_index_len = .sec_index_bkts * entry size ! Set size of primary index 


END +“bucket_overhead ! plus bucket overhead 
sec_index_len = 0; 


ELSE 
! Else no secondary index (useless) 


Compute the amount of space needed for the entire message section 
including the facility table. 


section_size = msc$c_length + .prim_index_len + .sec_index_len 
+ .fac_space + .msg_space; 


' 
Allocate enough space for the entire thing 


status = allocate(.section_size,section);! Allocate the space, signal error 
IF NOT .status : If error detected, 


HEN 
RETURN .status; ' then return with status 


; Construct the index and data portions of the section 


CHSFILL(O,msc$c_length,.section); ' Zero the section header 
section Cmsc$b_type] = msc$c_msg; ! Set type of section 

section mscou_senity) = msc$c_sSanity; ! Set sanity check word 
section [msc$l_size] = .section_size; ! Set size of entire section 
section Cmsc$l—index_off] = msc$c_length; ! Offset to primary index 
section Cmsc$l_text_off] = msc$c_Tength+.prim_index_len+.sec_index_len; 
section [msc$l"fac_off] = .section Cmsc$l_texf_offJ~+ .msg_space; 


Initialize the primary index 


BEGIN 
BIND 


prim_bucket = .sectiontmsc$c_length: BBLOCK; ' Address primary index 
prim_bucket (midx$w_size] = .prim_index_len; ! Set length of index 
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: 378 611 - apucket Cmidx$b_sanity] = midx$c_sanity; ! Set sanit + pe byte 
; 379 ole prin m_index = oe ty bucket t midx$c Nentriess. ! Pos on at entry 1 | 
; 380 61 
; 381 614 
 # Sn 00: “9” Gases sax neemneeric Waes pate | 
; : etu e secondary index pointers 
2: a eect | 
; 386 $19 bucket = -section+msc$c length + .prim_index_l ! Point at sec. index 
; fi 6 9 bucket. filled = 0; ! Nothing filled yet 
; 389 88 § code = .message_header; oint at first message definition 
; + Be t data = .section + section Cmsc$l_text offs ! Point at data area 
: 39 0625 2! 
; 39 06 § : Loop thru each message definition storing the 
; 394 06 ; message definition record and the index entry. 
i 396 0609 3 
; 397 0630 INCR i FROM 1 TO .num_messages ! For each message definition, 
; 398 0631 dO 
; 399 pO 36 BEGIN 
; 400 063 BIND 
; 401 0634 msg = code (code$c_msg,0,0,0): BBLOCK; ! Reference MSG block 
; 40 0635 LOCAL 
; 40 bose sec_index: REF VECTOR; ! Address of secondary index entry 
: 404 637 
; 405 0638 ' 
; 406 0639 3 !  $tore the index to the record in the primary or secondary 
; 407 0640 3 ; index depending on whether we're doing a 1 or 2 level index. 
; 408 0641 : 
; 409 Bose 
; 410 064 IF .sec_index_len NEQ 0 ! If doing a 2 level index, 
3; 6411 0644 3 THEN 
; tig 0645 4 BEGIN 
; (41 0646 4 IF .bucket_filled EQL 0 ! If at start of bucket, 
3; 6416 0647 4 THEN 
; 415 0648 5 BEGIN 
3; 416 0649 5 bucket baidxSy. size] = 0; ! Preset Size of bucket 
3 417 0650 5 bucket [midx$b-sanity] = midx$c_sanity; ! Set sanity check byte 
; «418 0651 5 bucket_filled = bucket_overhead; : Account for space 
3 6419 0636 5 sec_index = .bucket + Bucket_overhead; ' Set to first entry 
; 420 0653 4 H 
: $5) $638 4 END 
3; 6 ; 655 ELS 
3 $67 Bo38 sec_index = .prim_index; ! Else, store directly into primary 
; 435 0658 IF .sec_index GEQ .section + .section Cmsc$l_text_off] ! If overflow, 
: {59 660 4 BEGIN 
; 428 661 4 SISNAL (emsg(indexovfl)); ! Signal index area overflow 
; 429 662 4 RETURN emsg(indexovfl); 
: aay $i DK: | 
3 $36 665 sec_index (0) = .code ccogest number) : Insert message code in index 
: 63 66 AN y pisee severity; ! but leave severity bits zero 
3; 434 66 sec_index [1] = .data - ye BS ! Store offset to record 


SS 
_. 


448 


Sel el ek el ell ak el eal a ta 


WAAL 
OWONOUSWN—Ow” 


COOOOOCOCOCOCOCOOCOOOOoCoOoO 
PREQE-EARALAAAARAAAA AAA A AO 
COCDCO COCO OOOO NI NINN NNO OO 


AUS WR COONOULS WOW 


0687 


Own Wr 


FW OC OONOUE WO 0Oa~ 


ABE BB BBE BB DD IID AD IIIT BE BB EWN NWI BB PIO 


N 5 
16-Sep-1984 02:13:17 AX-11 Bliss-32 V4.0-742 
14 p71 9Bc 93318534 MSGFIL.SR RCJOBJECT.B32;1 


Store message definition record into data area 
a aa GEQ .section + .section Cmsc$l_fac_off] ! If overflow, 


BEGIN 
SIGNAL (emsg(dataovfl)); 


! Signal data area overflow 
io emsg(dataovfl); 


CHSMOVE(.msg Cmrec$w_size], msg, .data); ! Store MSG record in data area 


data = .data + .msg (mrec$w_size); ! Skip to next available byte 


If doing 2 level index, increment space used in bucket. 
Check for secondary index bucket full. If full, then 
put the highest key in the bucket into the primary index. 


IF .sec_index_len NEQ 0 ! If doing 2 level index, 
THEN 


BEGIN 
bucket_filled = .bucket_filled + entry_size;! Account for space used 


IF .bucket filled GTR bucket_size-entry_ size ' If last entry in bucket, 
-i EQL .num_messages ' or last message 


bucket Cmidx$w_size] = .bucket_filled; ' Set size of bucket 
-prim_index GEQ “section + Tsection Cmsc$i_index_off] 
een + .prim_index_len ! If overflow: 


BEGIN 
SIGNAL (emsg(indexovfl)); 


! Signal index area overflow 
RETURN emsg(indexovfl); 


END; 
prim_index tH} = .sec_index (0); ! Store highest “to. buck in bucket 
prim_index = utket - .section ) ' Store o rest to bucket 
! with bot ton bit set (subindex) 
re. inden = Ororin. index + entry_size; ' Set oy A entry 
bucket + bucket_size; ! Set to next bucket 
ana tilled = 0; ! reset usage counter 
ELSE ! Else, if octet ,more room in bucket, 
> sec_index = .sec_index + entry_size; Set to next entry 


If only doing a 1 level index, then we need only to 
increment to the next position in the primary index. 


ELSE ! Else, if only doing primary index, 
prim_index = .prim_index + entry_ a ! Set to next primary entry 
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: 23 182 d de Ccode$t_Link] ! and ski CODE block 
; code = .code Ccode$l_link]; ! and s to next oc 
: 49% 158 END: ‘ | 
; 4695 7 3 
; § ? : 
; rd f ? } Generate the facility definition table in the section 
3 | 
; $99 7 
; 500 Bf ‘ data (0,0,16,0) = .fac_space - 2; ! Set size of entire table (excl. size) 
; 203 4 : data = .data + 2; | 
; 508 7 § fac = “fac llity header; r ! Start at first entry in List 
; 0% f i INCR i FROM 1 TO .num_facilities i For each facility definition, 
3 208 0739 BEGIN 
; 507 0740 IF .data GEQ .section + .section Cmsc$l_size] ! If overflow, 
; 208 0741 THEN 
; 509 pts 4 BEGIN 
; 510 0743 4 SIGNAL (emsg(facovfl)); ! Signal facility table overflow 
; ae Bree 4 RETURN emsg(facovfl); 
3 31 p78 data mfac$w_number] = .fac Cfac$w number]; ! Store facility number 
> 514 074 data ([mfac$b_namelen] = .fac Cfac$b_namelen); ! and facility name 
s 3% 0748 CHSMOVE(. fac Cfac$b_namelen], fac Cfac$t_name], data [mfac$t_name]); 
; 516 0749 data = .data + $BYTEOFFSET(mfac$t_name) + .fac Cfac$b_namelend; 
a Ot" 0750 fac = .fac Cfac$l_link]; ! Link to next in chain 
; 518 0751 2 ND; 
; 519 0728 2 
; 520 0753 2 RETURN true; 
3 Sel 0754 2 
s 322 0755 1 END; 
-EXTRN MSGS_NOMSGS, MSG$_INDEXOVFL 
-EXTRN MSGSTDATAOVFL, MSG$_FACOVFL 
OFFC 00000 CREATE_SECTION: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 3 0497 | 
5E 14 ce 0000 SUBL2 #20, SP : 
51 0000G CF DO 00005 MOVL NUM_MESSAGES, R1 ; 0549 | 
08 14 tit BGTR 1$ 3 
50 00000000G_ 8F 0 0015 nove #MSG$_NOMSGS, RO ; 0551, 
59 51 03 74 6 Sie 1$: ASHL #3, R1, PRIM_INDEX_LEN ; 0558 
59 08 CO 00018 ADDL2 #8, PRIM_INDEX_LEN ; | 
00000600 &F 33 D1 00018 CMPL PRIM_INDEX_LEN; #1536 : 0560 | 
7 iF} 00 BLEQ $ : 
53 2 3 7 oo 4 ASHL #3, R1,_R3 ; 0563 
3 000001F8 = BF c6 028 DIvi2 #564, R3 ; | 
50 31 3 O0¢F ASHE =—s #3, RI, RO : 
00 0 1 7A 00 EMUL #1, RO, #0, -(SP) : 
50 BE 000001F8 + 8F 7B 9 EDIV #564, (sP)+, RO, RO : 
D4 4) CLRL R 3 
b 0 a TSTL R : 
2 BRe BEQL 2$ $ 
D6 09047 INCL R2 : 
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1 
1 p-19 (5) 
0 0c AO CO 00124 ADDL2 12(R0), RO : 0673 
8 38 D1 91 8 CMPL DATA, RO : 
15 19 00128 BLSS 10$ ; 
000000006 8F DD 001 : PUSHL #MSG$_DATAOVFL + 0676 
000000006 98 1 FB 1 CALLS #1 LTBSS1GNAL 3 
000000006 8F 0 00154 HOVL #mSG$_DATAOVFL, RO : 0677 
4B 08 AA 08 AA 28 O48 10$ MOVC3 B<CODE?, 8(CODE), (DATA) + 0680. 
30 AA 014 MOVZWL 8(CODE). RO : 0682 | 
8 50 CO 0014¢ ADDL2. RO, DATA : 
58 08 AE €9 O014F BLBC © BSP), 148 + 0690. 
E 08 CO 0133 ADDL2 #8, BUCKET_FILLED ; 0693 | 
000001F8 8F oF pi 0196 CPL UCKET_FILCED, #504 + 0695. 
00006 CF 04 AE 01 0015 CMPL =‘, _NUM_MESSAGES : 0696. 
SF 12 00165 BNEQ : | 
68 6E B80 00167 11$:  MOVW BUCKET FILLED, (BUCKET) > 0699 
50 0000" CF DO OO16A MOVL ECTION, RO ; 0700 
50 08 Ado CO 0016 ADDL (RO), RO : 
50 59 ¢€O 00173 ADDL2 PRIM_INDEX_LEN, RO ; 0701 
50 57 D1 00176 CMPL PRIM-INDEX> RO : 
15 19 00179 BLSS 128 : | 
000000006 8F DD 00178 PUSHL #MSG$_INDEXOVFL + 0704. 
00000000G 00 Q1 FB 00181 CALLS #1, LTBSS1GNAL 3 
50 000000006 &F B0 00188 MOVL #MSG$_INDEXOVFL, RO + 0705 
87 66 00 90190 12$:  MOVL.  (SEC_INDEX), (PRIM_INDEX)+ + 0707) 
56 58 0000" CF C3 0019 SUBL3. SECTION, BUCKET, + 0708 
87 14 01 ¢9 00199 BISL3 #1, R6, (PRIM_INDEX)+ : 0709 
58 0200 C8 9SE 0019D MOV 512(R85, BUCKET > 0711 
6E D4 001A2 CLRL BUCKET FILLED : 071 
08 11 OO1A4 BRB 15$ : 069 
56 08 CO OO1A6 13$:  ADDL2 #8, SEC_INDEX : 0715 
03 11 O01A9 BRB 15§ : 0690 
57 08 CO 001AB 14$: ADDL2 #8, PRIM_INDEX + 0724 
SA 6A DO OO1AE 15$: MOVL (CODE), CODE ; 0726 
FFI7 04 AE 01 OC AE F1001B1 16$: ACBL 1g(SP) 1, 1, 6$ : 0630 
8B 00006 CF 02 a3 00189 SUBW3 #2, FAC_SPACE. (DATA)+ : 0733 
56 0000G CF 00 001BF MOVL FACILITY HEADER, FAC > 0736 
5A 00006 CF DO pi C6 MOVL NUM_FACICITIES, R10 ; 0737 
58 D4 00169 CLRL ; 
3p «11 001CB BRB 19$ F | 
50 0000' CF 00 001CD 17$:  MOVL SECTION, RO : 0740 
30 04 AO CO 00102 ADDL2 4(RO), RO ; | 
5B D1 00106 CMPL DATA, RO ; 
15 19 00109 BLSS 18% ; 
000000006 8F DD 00108 PUSHL #MSG$_FACOVFL > 0743. 
000000006 90 1 FB 0161 CALLS #1, LIBSSIGNAL ; | 
0 000000006 8F b0 OIE HOVL #MSG$_FACOVFL, RO : 0744 
68 4 Ab B0 O1FO 18$:  MOVW 4(FAC), (DATA) : 0746 
5 6 Ag A 001F4 MOVZBL 6(FAC). R : 0747 | 
02 AB 30 1F8 OVB RZ, ¢ (BATA) : 
03 «AB 07 Ab 7 é 1F MOVC3 R7. 7(FAC), 3(DATA) : 0748 | 
5B 03 A74B 0 MOVAB 3(R7)CDATAS, DATA : 0749 
56 $6 D 09 0 MOVL (FAC) FAC : 0750 
BF 58 AF A 19%:  AOBLEQ R10, f, 17% > 0737 
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Create the indirect 
i Inputs: 


i Outputs: 


r0 = status (unsignaled) 
section = Address of section 


LOCAL 
status, 
section_size; ; 


section_size = SBYTEOFFSET(msc$t_indname) 


status = allocate(.section_size,section); 
IF NOT .status { 


HEN 
RETURN .status; ! 


section 
section 
section 
section 
section 


msc$b_f 9s = 
msc$w_sanity] = msc$c_sanity; ! 
msc$l_size) = .section_size; 
msc$b_indnamlen] = 


msc$b types” 
a 


—PIPIHRIPIPIPINIPYIPIPINIAINPIPYIPIPIPIMYPINPINIPY a st st st at ot ot 
— . . . 


message section. 
will merely contain the name of the agssege file which 
should be mapped at run-time by SYSSGETMSG. 


! 
! 
' 
! 
! 
' 
filename_desc = Descriptor of /FILE value 
! 
' 
! 
! 
' 


msc$c_ind; ' Set 
0; ! Initialize f 


CHSMOVE(.filename_desc Cdsc$w_length], .filename_desc 
RETURN true; : 
END; 


1 Oh teens V4.0-74 
MSGFIL.SRCJOBJECT.B32; 


This section 


status code 
Size of section in bytes 


+ .filename_desc (Cdsc$w_length]; 


' Allocate space for section 
If error allocating space 


then return with status 
type to indirect 


lags as all zero. 
Set sanity check wor 


' Set size of section 
-filename_desc Cdsc$w_lengthJ; 


; ! Set length of name — 
Cdsc$a_pointer], section Cmsc$t_indname]); 


return with success 


007C 00000 CREATE_INDIRECT: 
.WORD Save R2,R3,R4,R5.R6 
56 00006 CF 9E 0000 MOVAB FILENAME _DESC. R6 
52 66 3¢ 0000 MOVZWL F JLENAME DESC, SECTION SIZE 
52 9 0 OOA DDL2 #9, SECTION SIZE 
0000' ct F 0000D USHAB SECTION 
DD 9011 PUSHL SECTION SIZE 
00006 2 fe Bia CALLS  ] ALLOCATE 
E9 0001 STATUS, 1$ 
9000" CF DO 0001B SECTION RO 
04020001 8F D0 00020 #80871405, (RO) 
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; Routine Size: 
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; 797 1 ROUTINE output_mhd = 

i 3e8 798 | — 

; 568 799 1 !<=- 

; +4 apy 1} 

3 ty Be ! } Output a module header record. 
3 I 8 1! Inputs: 

3 oT Spe 1! 

; 574 0805 1! None 
3 Ye Bane 1} 

; 576 07 1 ! Outputs: 

s S77 t4 1! 

: 578 09 1! Module header record is output. 

3 44 810 1 !--- 

; so 0811 1 

$ é 1 baig BEGIN 
: Ht 081 

; 58 0814 BIND 

; 584 0815 Lang_name = UPLIT('VAX-11 Message V04-00'); 
; 585 0816 

; 586 0817 LITERAL 
3 per 0818 Lang_length = 21; 
; 588 0819 
; 589 0820 LOCAL 

; $90 0821 rec: BBLOCK(128), ! Allocate record buffer 

3 (391 08 ¢ offset, ! Offset to current spot in record 

3 236 0894 bufdesc: VECTORC2); ! General buffer descriptor 

3; 594 0825 rec Cobj$b_rectyp]) = obj$c_hdr; ' Set record type = HDR 

3 399 0826 rec mngee ner tyod = mhd$c_mhd; ! Main module header record 

; 596 0827 rec Cmhd$b_strivl] = 0;— ' Structure level 0 

3 44 88 rec Cmhd$w-recsiz] = obj$c_maxrecsiz; | Maximum record size 

; 299 $850 rec Cmhd$b_naming) = .module_name [0]; ! Length of module name 
; 600 tt CHSMOVE(.module_ name [0], .module_name(1}, rec Cmhd$t_name)); 
3 $3) hi offset = SBYTEOFFSET(mhd$t_name) + .module_name (0); 

; 60 0834 IF .version_num (0) EQL 0 

; 604 th THEN 

; 605 08 $ ' 

; 606 083 ' No .IDENT was specified 

; 607 0838 : 

: 09 0820 roc fnoffeet 

D4 rec -orTrTse eoVeSe = H 

; 610 Oac| rec L.offset 8.8.03 = 'O:; 

; 611 Bees offset = .offset + 2; 

: ol¢ 84 END 

; 61 ate 

3; 614 45 ELSE 

; 615 308 ‘ 

; 616 5 ' , IDENT was specified 

3 Ot7 48 : 

; 618 49 BEGIN 

3; 619 50 rec C.offset,0,8,0) = .version_num (0); 

; os 51 offset = offset et; 

3; 621 852 CHSMOVE(.version_num [0),.version_num (1),rec C.offset,0,0,0)); 

; 622 08535 offset = .offset + .version_num (0) ; 


6 
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; 623 4 version_num (0) = 0; 
- f tobe 
: 6 § 3§ putdeec Bok = V3 ! Length of date/time string 
; 6 28 buf ec + .offset; ' Address to put creation date/time 
; 628 3? SASCTIATiAaUr sSutdeje): ! Put creation date/time into buffer 
: ? ye offset = .offset + 
: 631 OB bufdesc (1) = .bufdesc (1) + 17; ' Address to put last patch date/time 
; 6 § Bae SASCTIM(TIMBUF sbuf desc) ! Put time of Last patch into buffer 
: ? 0 re: offset = .offset + 1 
; ° 2 ase put_record (rec, .offset); ! Output record 
: 637 0868 rec Cmhd$b_hdrtyp) = mhd$c_lnm; ' Lan d i 
; O38 B89 CHSMOVE (Lang_ length, lang_name, rec + SBYTEOF PSE (mhd$b _hdrtyp)*1); 
; 8 ba put_record(rec, SBYTEOFFSET(mhd$b_hdrtyp)+1+Llang_length); 
; otg $B78 RETURN true; 
; 464 0874 
: 644 0875 1 END; 
| 
-PSECT SPLITS,NOWRT,NOEXE,2 | 
20 65 67 61 73 73 65 4D 20 31 31 2D 58 41 56 Q0000 P.AAA: .ASCII \VAX-11 Message V04-00\<0><0><0> ; 
00 00 00 30 30 2D 34 30 56 0000F : 
LANG_NAME = P.AAA | 
-EXTRN SYSSASCTIM | 
-PSECT SCODES,NOWRT,2 
01FC 00000 OUTPUT_MHD: | 
WORD Save R2,R3,R4,R5,R6,R7,R8 ; 0797 
5&6 000000006 00 9€ 0000 MOVAB SYS$ASCTIM. RB ; | 
SE FF78 CE 9E 0000 MOVAB =136(SP., Msp : | 
8 AE 8 BoE CLRW RE : 0825 | 
A AE 94 0001 CLRB ty ; 3 8 7) 
0B AE 0800 8F B80 00014 MOVW #2048, REC+3 : 08 8 | 
56 00006 CF DO OO01A MOVL MODULE NAME, R6 : 0830 
OD AE § 3 1F MOVB Re: 3 3 
OE AE 00006 F 3 MOVC R anoDULE _NAME+4, REC+6 5 083) | 
6 06 ¢ A ADDL2 #6, OFF ; 08 4 
30 08 AE46 MOVAB REECOFFSETI. RO ; 0840 | 
00006 4 p mov RSION_NUM, ; i 
0 3001 8F B 9 MOVW #12289, (RO) : 0840 | 
6 2 ¢ ( ADDL2 #2, OFFSET > 0842 
4 1 4 BRB : BaeG | 
60 7 90 43 1% MOVB R7, (RO) 3 29 
‘ p 4 INCL. OFFSET ; 9 1 
08 AE46 00006 iy 4 MOVC R7, BYERS ION. NUM+4, RECCOFFSET) 3 28 
6 , 6 £ 2 ADDL R7. OFFSET ; 085 
00006 CF D4 CLRL VERSION: NUM ; 0854 | 
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; Routine Size: 
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; big 76 ! ROUTINE output_eom = | 
ee: LB ia es | 
; e3 » ! ; Output an end of module record 
: 6 1! Inputs: 
3 $38 ; ’ 1! . | 
3 $20 : ; None | 
; $28 8 ! ; Outputs: 
; 638 O8 § The record is output. 
PBF acct 
: 66 9 
; 6 $898 LOCAL 
: +e) Bane rec: BBLOCK(128); ' Allocate record buffer 
: 666 89 rec Cobj$b_rectyp] = obj$c_eom; ! Set record type = EOM 
: pot 0 3 rec po ossp-rectya, = sad ey PO ! Set completion severity 
34 344 put_record(rec, 2); ! Output record 
3; 6 0901 RETURN true; 
3; 67 090 
; 67 0903 1 END; 
| 


0000 00000 OUTPUT_EOM: 
- WORD 


Save mashing ; 0876 
SE 80 AE 9 00002 HOVAB -128(SP). § : 
ée 0 80 00006 MOV) #3. REC : 0896 
02 DD 00009 PUSHL : 0899 
0% AE 9F 00008 PUSHAB REC : 
0000v CF 02 FB O000E CALLS #2, PUT_RECORD : 
50 01 DO 0001 MOVE. ow. RO ? 0901 
04 00016 RET : 0903 


; Routine Size: 23 bytes, Routine Base: S$CODE$S + O3DF 


6 
1b-se $1984 02:13:17 AX-11 Bliss-32 V4.0-74 Page 24) J 
12280 8-138e eee UMSGF IL SREIOBJECT.B32; ’ oy 04 
3; 675 904 1 ROUTINE output_psects (psect_flags) = 7) 
i 676 905 1 — gle | i} 
; 678 9 1 ; 
; 679 443 1 This routine outputs all the psect definitions . } 
; 680 909 1! for normal message sections. Only the absolute | - 4 
3 pet ai9 : psect is output if /NOTEXT is specified. 4 
; oa 31¢ 1! Inputs: ; } 
; 684 0915 1! : 
; 685 914 1! psect_flags = Psect attributes ° } 
; 68 915 1! +4 
; 68 218 1 ! Outputs: . 4 
3; 4689 0918 1! The records are output. ° ! 
; 690 0919 1 !--- ;4 
; 691 0920 1 ‘ 
; 69 0921 2 BEGIN : : 
3; 694 09 LOCAL ‘ 
; 695 0924 entry: BBLOCK(129); ! Entry buffer : : 
; 697 0926 start_record(obj$c_gsd); ! Signal start of GSD record ‘ : 
; 698 0927 : 
; 699 0928 : : 
; 700 9494 ! Define psects used in this object module 
; 701 0930 ! 
3; 70 0931 
; 7 baRs entry Cops$b_gsdtyp] = gsd$c_psc; ! Psect definition entr 
: 704 093 entry Cgps$b_align] = 0; ! Psect alignment foyte 
; 705 0934 entry [Cops$w_flags] = gps$m_exe OR gps$m_rd OR gpssn wrt; ! Psect attributes 
: 706 0935 entry Cgps$l-alloc] = 0: T Set size of section 
; 707 0936 oneey 9 s$b mening = 5; : bsngth of psect name 
; 708 0937 CHSMOVE (5 ,UPCIT('SABSS$') ,entry CopsSt_nane ); ! Set psect name 
3 As a4 put_entry(entry, SBYTEOFF SET (gps t_name)+5); ! Output entry 
:. oe 0940 IF NOT .cli_flags faual text) AND ! If /NOTEXT specified, 
: Ne 0941 T .cli_flags Cqual_fileJ : and no pointers 
3; rl bk 
3 «6714 094 BEGIN 
3 715 0944 end _record(); ' then flush absolute psect only 
; 716 0945 RETORN true; ! and return 
s vir p06 3 
: 718 Bae 
3; «6719 948 entry fops$w._ flags = .psect_flags; ! Psect attributes 
3 60 Ben entry Cgps$l_allocj] = .section Cmsc$l_size); ! Set size of section 
3 re b9a4 IF_.cli_flagsCqual_file] 
ee 936 THEN 
3; 724 95 BEGIN 
s 25 954 entr C9ps$b naming] = 14; ! Length of psect name 
s fe 955 CHSMOVE 4,UPLIT('MSGPTRSSECTION') ,entr gps t_name]);! Set ptr psect name 
3; fer R26 put ontrysentry, SBYTEOFFSET(gps$t_name) +14); : dutput entry 
: 728 43 ND 
3; 729 958 
; 730 959 EGIN 
; «731 0960 entry Cgps$b_namling) = 11; ! Length of psect name | 
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M “2 
16-Sep-1984 7 AX-11 Bliss-32 V4.0-742 
yergeen i 8Rs 13:48i3t | EARS SRE foasett b3os4 
CHSMOVE (11,UPLIT('MSGS$S 5 TION’) ,entry aft tfenene??: ! Set psect name 
Bs entry concer. SBYTEOFFSET Copste. name)+11); ! Output entry 


! Psect ali peent (Longword) 
ect_flags OR opssn. owes his psect 1s overlayed 
t'psect Fonte tout ten 


seeek of psect name 


entry Cops$b_ sits = 2; 
= 
entry = 


entry iPS 
4nd; 

entry = 15; 

a EN file) 

CHSMOVE (15, UPLIT("MSGPTRSAAAAAAAA') ,entry Cops$t_nameJ)! Set ptr psect name 

CHSMOVE (15,UPLIT("MSGSAAAAAAAAAAA') entry Cops$t_name]); ! Set psect name 

put_entry(entry, SBYTEOFFSET(gps$t_name)+15); ! Output entry 


entry Cgops$w_flags] = .psect_flags; 
entry Cgps$l-allocJ = 4; 


IF .cli_flagsCqual_file) 

CHSMOVE (15, UPLIT("MSGPTRSAAAAAAAB') ,entry Cgps$t_name])! Set ptr psect name 
CHSMOVE (15 ,UPLIT(*MSGSAAAAAAAAAAB') ,entry Cgps$t_name]); ! Set psect name 
put_entry(entry, SBYTEOFFSET(gps$t_name)+15); ! Output entry 

entry Cgps$w_flags] = .psect_flags OR gps$m_ovr; ! This psect is overlayed 

IF gett, flagsCqual_fileJ 

5 OMNES ALI TE MSGPTRSAAAAAAAC') entry Cops$t_name])! Set ptr psect name 
EF HSMOVE(15, UPLIT("MSGSAAAAAAAAAAC'), entry Cops$t_name]); ! Set psect name 
put_entry(entry, SBYTEOFFSET(gps$t_name)+15); ! Output entry 


' Normal psect flags 
i Size of psect contribution 


end_record(); ' Flush rest of record buffer 


RETURN true; 


-PSECT SPLITS,.NOWRT ,NOEXE ,2 


99 00 99 ¢ 53 $¢ 41 24 00018 P.AAB: .ASCII \$ABS$\<0><0><0> 
45 24 4 50 47 53 ap 00 , P.AAC: .ASCI] \MSGPTRSSECTION\<0><0> 
49 54 43 45 53 8 47 33 4D $8 P.AAD: .ASCII \MSGSSECTION\<0> 
41 41 24 52 54 50 47 5 3 O046 P.AAE: .ASCII \MSGPTRSAAAAAAAA\<0> 
41 41 41 41 #41 #24 47 «53 $b O94 P.AAF: .ASCII \MSGSAAAAAAAAAAA\<0> 
41 41 246 52 54 50 47 53 4D if P.AAG: .ASCII \MSGPTRSAAAAAAAB\<0> 
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Sf 
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16 es 
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42 41 41 41 41 41 41 41 41 41 41 4753 
43 41 41 41 41 41 41 41 246 52 54 50 47 53 
43 41 41 41 41 41 41 41 41 41 41K 47553 


7C P.AAL: .ASCII \MSGPTRSAAAAAAAC\<0> 
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O06 
: 4 P.AAH: .ASCII \MSGSAAAAAAAAAAB\<0> 
0098 


Bete Se Se Be Be Be 


aC P.AAJ: .ASCII \MSGSAAAAAAAAAAC\<0> 


-PSECT $CODE$,NOWRT,2 


0904 


| 
| 
O3FC 00000 OUTPUT_PSECTS: 
»WORD Save R2,R 3 
59 O000v CF 9€ 90002 PUT_ENTRY, R9 : 
58 00006 CF 9E 0000 MOVAB CLI7FLAGS, R8 ; 
57 0000" CF 9E 0000C OVAB P.AAB, R7 ; 
SE FF7C }§=6©CE «9E 00011 MOVAB <-132(§P), SP : 
01 OD 90016 PUSHL #1 + 0926 
0000v CF 01 FB 00018 CALLS #1, START_RECORD ; 
6E 01C00000 8F D0 0001D MOVL § #293601287 ENTRY + 0932 
04 AE b4 00024 CLRL = ENTRY+4 + 0935 
08 AE 05 90 00027 OVE #5, ENTRY+8 + 0936 
09 «AE 67 05 28 00028 MOVC3 #5. P.AAB, ENTRY+9 + 093? 
OE DD 00030 PUSHL #14 + 0938 
04 AE OF 00052 PUSHAB ENTRY : 
69 0 EB 0003 CALLS #2, PUT_ENTRY : 
68 95 00038 TSTB = CLE_FLAGS > 0940 
07 19 D003, BLSS =«*1$ ; 
03 68 08 £0 003¢ BBS #2 CLI_FLAGS, 1$ > 0941 
OOA3 31 00040 BRW 10$ : 
02. AE 04 Ac BO 00045 1$ MOVW  PSECT_FLAGS, ENTRY+2 + 0948 
50 0000" CF DO 00048 MOVL SECTION, RO + 0949 
04 AE 04 AO 00 00040 MOVL  4(RO), ENTRY+4 : 
OE ry) 02 a 90052 BBC #2, CLI_FLAGS, 2$ + 0951 
08 AE OE 90 00056 MOVB #14, ENTRY+8 + 0954 
09 AE 08 A? OF 28 O005A MOVC3 #14. P.AAC, ENTRY+9 : 0955 
17? DD 00060 PUSHL #23 + 0956 
0c 11 00062 BRB 3 ; 
08 AE 0B 90 00064 28: MOVB. #11, ENT + 0960 
09 AE 18 «A? OB 28 00068 MOVC3) #11. P.AAD, ENTRY+9 > 0961 
14 DD 006 PUSHL #20 + 0962 
04 AE 9F 00070 38: PUSHAB ENTRY ; 
69 FB 007 CALLS #2, PUT_ENTRY ; 
01 AE 90 00076 MOVE. #2, ENTRY+1 + 0965 
56 04 AC 4 C9 OOO7A BISL3 #4; PSECT_FLAGS, R6 > 0966 
02 AE 6 BO 0007F MOVW R6, ENTRYF2 3 
04 AE 10 p0 0083 MOVL ig, ENTRY+4 > 0967 
08 A OF 90 000 MOVE #15. ENTRY+8 : 0968 
08 6 2 £1 00 B BBC ue CLI_FLAGS, 4$ + 0970 
09 «AE 24 «A? f ‘ 00 i Movs #15, P.RAE, ENTRY+9 : 0972 
09 «AE 34 «AT OF 28 00097 4$ MOVC3 #15, P.AAF, ENTRY+9 > 0974 
18 BD 9D 5$ PUSHL #24 > 0976 
ene at a a he : 
02 AE 04 AC 5 doas MOVW  PSECT UFcaGs. YENTRYS2 : 0978 


08 

09 AE 

09 AE 

08 

09 AE 

09 AE 

; Routine Size: 239 bytes, 
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04 


04 
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7 | 

16-5 ep-1984 02:13:17 AX-11 Bliss-32 V4.0-74 Page 27. 

14-5 at 95: 46: i MSGF IL BRE TOB ELT o32r4 ° rif 

4 0D AA MOVL #4, ENTR : 0979 

2 A BBC AE CLI TAGs. 6$ + 0981 

08 Movs §, P.RAG, ENTRY+9 + 0983 

F 28 OOOBA $$ MOVC3 es, P.AAH, ENTRY+9 : 0985 

8 DD 000CO 7$ PUSHL #24 : 0987 
: OF C PUSHAB ENTRY : 
FB C CALLS #2, put ENTRY : 

$ BO 000C8 MOVW RG, ENTRY+2 + 0989 

1 000CC BBC CLI FLAGS, 8$ + 0991 

F 28 00000 MOVC3 #15, P.RAI, ENTRY+9 + 0993 
6 11 0006 BRB ; 

F 28 00008 8$ MOVC3 #15, P.AAJ, ENTRY+9 + 0995 

8 DD OOODE 9$ PUSHL #24 + 0997 
: 9F OOOE PUSHAB ENT : 
FB OOOE CALLS #2, RPUT _ENT : 

0 FB B00E6 10$ CALLS #0, END “FE CORD + 0999 

1 pO 000EB MOVL #1. RO ™ + 1001 

04 OOOEE RET + 1003 
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ROUTINE output_gsd = 


~~ 
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ww 


778 lowe 
780 3 : This routine outputs all the global oyeeet 
781 : definitions to symbolically refer to the 
7 ¢ 0 : messages. 
7 1 : 
7 ! Inputs: 
785 : 
7 : None 
7 ; 
788 ' Outputs: 
ro i Th d 
: e records are output. 
791 !<<= 
79 
79 BEGIN 
794 
795 LOCAL 
796 entry: BBLOCK(129], ! Entry buffer 
ads ptr: REF BBLOCK; ! Address of current symbol entry 


start_record(obj$c_gsd); Signal start of GSD record 


SAWN AI POPONIPININPINIDDN 2 2 2 OO Os os 
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799 

800 

801 entry (sdf$b_ aera? = gsd$c_sym; ' Global symbol definition 

80 entry (sdf$b_datyp] = 0; ' Data type undefined 

80 entry Csdf$w_flags] = gsy$m_def; ! Definition rather than reference 
ope entry (sdf$b_psindx] = 0; ! Owning psect number 0 (S$ABS$) 
aoe ptr = .symbol_header; ! Point at first symbol entry 
808 WHILE .ptr NEQ 0 ! Until end of List 

809 dO 

810 BEGIN 

811 entry Csdf$l_value] = .ptr Csym$l value); 

alg entry Csdf$b_naming) = .ptr Csym$b_symlen); 

81 CHSMOVE(.ptr Csym$ syaiend ptr CSym$t_symbol], entry Csdf$t_name)); 
814 put_entry(entry, $BYT OFFSET (sdf$t_name)+.entry Csdf$b_namingJ); 

815 me = .ptr Csym$t_linkJ; ! Skip to next in chain 

6 - 

Ht end_record(); ! Flush rest of record buffer 
820 RETURN true; 

821 

822 END; 


007C 00000 OUTPUT_GSD: 
WORD 


Save R2,R3,R4,.R5,R6 , 
SE SOFF7C.=«OCE. «SE 0000 HOVAB | -1$9(SP5. §P | 
91 D> 9000 PUSHL : 1027. 
000v CF 1 FB 00009 CALLS #1, START_RECORD | 
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; Routine Size: 


~1386 TE ef elt Bliss-32 V4.0-74 
1984 12:46:21 MSGFIL.SRCJOBJECT.B32; 


; 1051 1 ROUTINE output_section = 

; 5 1 § 1 

3 § 1 1 beeen 

: 1054 1! 

3 3 1055 1! This routine outputs the TIR records to the object 

3 Ps : 2$ : module file to describe the message section. 

: 831 1058 1 ! Inputs: 

; § ¢ 1989 1! 

 . 1060 1! None 

RB HBT oxtou 

; 5 1968 1: 

3; § 1064 1! The records are written. 

; 838 1065 1 !--- 

; 839 1066 1 

; 840 1067 BEGIN 

: 841 1068 

; ete 1069 LOCAL 

; 84 1070 entry: VECTOR(C129,BYTE), ! TIR command buffer 

: 844 1071 ty ! Position within section 

3 Ste 1976 ytes_left; ! Bytes left of section to output 
; 847 1074 start_record(obj$c_tir); ! Signal start of TIR record 

; 848 1075 

; 849 1978 ' 

; 850 107 : Output the message section vector dispatcher (psect 1) 

; 851 1078 ; The name of the psect is set so that it will be loaded 

; o2¢ 1079 ' in front of the message section List. 

3; 8) 1080 : 

; «6854 1081 

; 855 ORs set_psect(2,0); ! Set to psect 2 

; 856 108 

; 857 1084 entry (0) = -16; ! Store immedate 16 bytes 

; 858 1085 BEG! 

; 859 1086 LOCAL 

; Bey Hs 4 vector: REF BBLOCK; ! Address buffer as longwords 

3 bee 1089 vector = entry (1); ! Address the start of the vector 
; 86 1090 vector plv$l_typed = plv$c_typ_msg; ' Type of vector 

; 864 1091 vector (plv$l_version] = 0; ! (reserved) ; 

; 865 O38 vector pivet asgdsp, = 6; ! Seli-rel offset to dispatcher code 
3 +4] 19a? yes tor 2,0,32,0) = %x'65160101'; ' NOP, NOP, JSB (R5) instructions 
; He 1098 put_entry(entry,17); ' Output TIR command 

; 869 1096 

; 870 1097 : ; 

; 871 1098 : Output the self-relative offset to the mssage section (psect 3). 
: 8 1099 ! It will be contributed to the section list psect at 

; 87 1100 ’ the end - resulting in a List of section offsets. 

: 874 1101 : Each offset to the sections is relative to the start 

; 875 1196 ‘ of the longword itself. 

mh hey! 

3 ik iY 5 set_psect(3,0); ! Set to psect 3 

; 880 1109 entry (0) = tir$c_sta_sb; ! Stack signed byte 


Pa 30 
9° 47) 


m4 7 
Sep-19 ‘V7 “11 Bliss-32 V4.0-742 
19-88-1388 96:13 21 MSGFIL SRE OBJECT.832;1 


3 1 1198 entry (1) = <1; ! Sign extended -1 

; § 11 entry ¢ = tirSc_sta_pb; ! Stack psect base plus offset 
3 1110 entry = 1; ! psect gel of message section 
5 HH 1111 entry = 0; ! start of p 

: tH 1336 entry = tirSc_sto_pirr; ! Store selforelative offset to psect 1 
3 BBS 1114 put_entry(entry,6); ! Output TIR command 

; 888 1115 

; 889 1118 ' 

; 890 111 ! Output a zero List terminator (psect 4) 

; 891 1118 ‘ This psect is an overlayed psect of Length 4 which 

5 53 1119 ; contains azero. The name of the psect is set 

; 89 1120 / so that it will be loaded following the message 

> 8946 1121 ' section List as a List terminator. 

; 895 11 ¢ : 

; 896 11 

; 244 + : set_psect(4,0); ! Set to psect 4 

; 899 1126 entry 9 = tirSc_sta_sb; ! Stack signed byte 

: 900 1127 entry = 0; ' value = 0 (byte to store) 

; 901 1128 entry 23 = tirSc_sta_sb; : pi & atgnee byte 

; 90 1129 entry = 4; ' (repeat count) 

; st 1% ? entry (4) = tirSc_sto_rb; : ee repeated byte (4 zero bytes) 
: 905 11 ¢ put_entry(entry,5); ! Output TIR commands 

; 906 113 

; 907 aT + ! 

: 908 1135 : Output the message section text 

; 909 1136 : 

: 910 1137 

3: 911 1138 set_psect(1,0); ! Set to psect 1 

: at 1139 

; 7 1140 osition = .sectio ! Start at beginning of section 
3 aie 136 ytes_left = section Cmsc$l_sizel; ! Bytes left to output 

; 916 1148 WHILE .bytes_left GTR 0 ! While stuff left to output, 
; 917 1144 dO 

; 918 1145 BEGIN 

; 919 1146 LOCAL bytes; 

3 9g 1147 

: 921 1148 bytes = MINU(. bytes. left,128); ' Max 128 bytes per record 

3 356 1149 entry (0) = - ' Number of b cee to output 

: 9 1150 CHSMOVE (. .bytes, -position,entryl12); i Move the by 

: 924 1151 put_entry (entry, .bytes+1); ' Output the. TiR command 

: 925 1138 osition = sposition + .bytes; ! Skip past stuff output 

: 926 115 Pkne left = .bytes_ left - bytes; ! Decrement amount remaining 

: 927 1154 

: 928 1155 ae 

3 4 1128 end_record(); ! Flush remaining record buffer 

; 930 115 

; «931 1158 RETURN true; 

: 336 1159 

3; 93 1160 END; 


Page 31. 
° (11) 


< 
Oo 
> 


’ | 
JECT 16-Sep-1984 02:13:17 - - .0- 
your 18-Sep-1984 eee MeGF IL SRETOBIELT o3204 Page 495 


OIVE OCOD GUTPUT SECTION ve A2,R3,04,85.R6.A7.08,09,010 1051 
o ave e . © . , & P} | 
A 00 ov CF OE 00 3 MOVAB PUT_ENTRY, R10 : | 
9 000v CF 9E 000 MOVAB SEI PSECT. R9 : | 
E FF7C 3 0 0¢ MOVAB - 32(SP), SP F coe’ 
0000v cf a) 5 13 CALLS At START_RECORD : | 
7D 0001 OVO #2. =(SP) + 1082 | 
6 02 FB 0001B CALLS #2, SET_PSECT ; 
6 10 BE OOOIE MNEGB #16, ENTRY + 1084 
5 01 AE 3 0 7 VAB_ ENTRY#1, VECTOR + 1089 
6 02 70 5 MOVQ #2, (VECTOR) + 1090 
08 Ad 06 DO 00028 MOVL #6 VECTOR) : 109¢ 
OC Ad 65160101 F DO 0002C MOVL wigs 940865, 12(VECTOR) + 109 
11 DD 00034 PUSHL #1 + 1095 
04 AE 9F 00036 PUSHAB ENTRY : 
6A 02 FB 00039 CALLS ae. PUT_ENTRY : 
7E 03 7D 0003C¢ MOVO #3. =(SP) + 1105 
69 02 FB 0003F CALLS #2, SET_PSECT : 
6E O104FFO1 BF DO 0042 MOVL  #17104621, ENTRY + 1107 
04 AE 2A00 BF BO 0004 MOVW #10752, ENTRY+4 + 1111 
06 DD 0004F PUSHL # + 1114 
04 AE 9F 00051 PUSHAB ENTRY : 
6A 02 FB 00054 CALLS #2, PUT_ENTRY : 
7E 04 7D 00057 MOVO #4. =(SP) > 1124 
69 02 FB OO05A CALLS #2 sé PSECT : 
6E 04010001 8F DO 0005D MOVL agri 4401, ENTRY + 1126) 
046 =A 27 90 00064 MOVE #39, ENTRY+4 + 1130) 
05 DD 00068 PUSHL #5 : 1132 
04 AE 9F OO06A PUSHAB ENTRY ; 
6A 02 FB 0006D CALLS #2, PUT_ENTRY : 
7E 01 7D 00070 MOV #1. =(S + 1138 
69 02 FB 0007 CALLS #2, SET_PSECT : 
50 0000" CF DO 00076 MOVL ETIONT RO : 1140 
58 50 00 00078 MOVL RO, POSITION : 
56 04 Ad b 9007E MOVL  4(RO), BYTES_LEFT : 1141 
eC 15 00082 1$ BLEG $ + 1143 
50 6 DO 00084 MOVL BYTES LEFT, RO + 1148 
00000080 =F 50 D1 00087 CMPL RO, AT : 
04 1B OO8E BLEGU ; 
50 80 BF 9A 000 MOVZBL #128, RO ; | 
57 0 DO 00094 2$ OVL RO, BYTES : | 
6f 57 ’ 9097 MNEG YfES, ENTRY > 1149 | 
01 AE 6 57 O9A MOVC3 BYTES, (POSITION), ENTRY+1 : 1150. 
01 AZ SF 0009F PUSHAB 1(BYTES) > 1151, 
04 AE 9F O0Ag PUSHAB ENTRY F 
6A FB OOOA CALLS #2, PUT_ENTRY : 
38 C OB ADDL2 BYTES, POSITION : 115 
6 7 ¢ AB SUBL2 BYTES, BYTES_LEFT > 115 
° 11 000A BRB 1$ : 114 
0000v CF FB 000B0 3$ CALLS #0, END_RECORD + 1156 
50 1 pO 008 MOVL #1. RO > 1158 
4 00088 RET : 1160 


; Routine Size: 185 bytes, Routine Base: $CODE$ + 0535 


1$90-1986 $e1E:I7 


MSch Iu sre doasett 03274 


] 


race 3 
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MSGFIL.SRCJOBJECT.B32; 
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uw 


ROUTINE set_psect(psect_number, offset) = 


Output an object module command to set the 
current peect to the specified value to 


entry 9 = tir$c_sta_pb; 
entry § offset; 

entry = tir$c_ctl_setrb; 
put_entry(entry,4J; 

RETURN true; 


END; 


offset into psect 
Set relocation base 
Output TIR command 


9 

S 

% ' 

9 ! 

939 : 

940 : 
941 : signal the start of contributions to that 
oa : psect. 
94 : 
944 ! Inputs: 
945 ' 
| } psect_number = Psect number to set to 
of offset = Offset into psect 

949 ! Outputs: 

950 ! 

951 ! None 

226 leon 

95 

954 BEGIN 

955 LOCAL 

328 entry: VECTOR(C4 BYTE); ! Allocate buffer 

958 Stack psect base 

44 entry = .psect_number; psect number 

961 

63 

96 

9 

96 


w 
aaah ak nk ak at atk nk tk at at at ot ot 2 2 2 2 2 2 2 2 2 2 I st 


ii a ad et od 8 2 8 I 


OO O09 09 09 09 0D 09 09 09 09 09 SII NISSEN IOP POA AAA 
NRO ODNAUNE WN 0 ODNOAMNE WN (OO OONOULS wr 


= PORPORIPOPOPOPOPONONUNY 2 2 


Se Oe Oe ee Oe Oe Oe Be OH Se Be Se Be Be Oe Ge Ge Ge Oe Se Oe Oe Se Se ee Se Oe HSH Se ee es 


Oo 
Sat 


0000 00000 SET_PSECT: 


WORD Save nothing ; 1161 

5E 04 ¢2 0000 SUBL2 #4, SP ; 
6E 04 90 0000 MOVE #4. ENTRY + 1184 
01 AE 04 AC 30 000 MOVB _—s PSECT_NUMBER, ENTRY*1 > 1185 
08 AE 08 ac 90 0000 MOVB OFFSET, ENTRY+ + 1186 
03 AE 50 BF 90 oi MOVB #80, ENTRY+3 : 1187 
4 po 1 PUSHL : 1188 

04 AE F 00019 PUSHAB ENTRY : 

0000v CF 0 FB ic CALLS #2, PUT ENTRY : 
50 1 4 MOVL #1. R > 1190 
4 00024 RET : 1192 


; Routine Size: 37 bytes, Routine Base: S$CODE$S + OSEE 


Bee Se Ge Ge Oe FH Se Be Be Oe Be Oe Oe Se Se Se Se Se Oe SH Se Se Se Se Se ee Se Se Se SH Se Se Se eae 


oO 
P-face pace re ee oe 


woOOoOoowowowovowno 


ih a a ed kd 8d = 8 a 


POPPOPYNPINMYNYININININININPIPINYINIPPYPINIPIPINPININININIP 4 OS OS 


MNMNNINNININ 2 3 2 SS | “DOOD OOCOCOCOCOOWOOOOOO 


NAME WN OO ODNOU EWN QO ODNOAYV EWN OOODNOUEW 


ROUTINE put_record (address, length) = 


Inputs: 


i 
; 
; address = Address of record 
Length = Length of record 
; Outputs: 
None 
BEGIN 

L 

status; 
object_rab Crab$w_rsz] = . length; 
object_rab Crab$l_rbf] = .address; 


status = SPUT(RAB = object_rab); 


IF NOT .status 
THEN 
BEGIN 


RETURN true; 
END; 


35 


000000006 


00006 


50 
50 


Output a record to the object module file. 


' Put the record to the file 


' If error detected, 


rms_error(emsg(writeerr) ,object_fab,object_rab); 
RETORN .status; 


-EXTRN 
000C 00000 PUT_RECORD: 

. WORD 
0000G CF 9 0006 MOVAB 
8 AC 8B 8 MOV'Y 
4 as Dd C MOVL 

53 DD 11 PUSHL 
1 F 13 CALLS 
D 1A MOVL 
E 1 BLBS 
44 PUSHL 
98006 F OF 00 PUSHAB 
009710D F DO 6 PUSHL 
3 fe f CALLS 
B MOVL 
01 ; 1$ NOVL 
BA 0 3 RET 


! signal error 
! and return with status 


SYS$PUT 


AB+34 
RAB+40 


PAR 
v04 


Bio HESSEEHOR ABER WARGHOMRNGRSA BT tag) 


; Routine Size: 57 bytes, Routine Base: S$CODE$S + 0613 


<= 


13:17 AX=-11 Bliss-32 V4.0-74 
48:34 UASGF IL SRESOBIECT .030+1 


1Ssto-19B4 03: 


B 


0000 00000 START_RECORD: 


OR 
0000' CF 04 AC 90 00002 MOVB 
0000" CF 01 00 00008 MOVL 
50 01 00 0000D MOVL 

04 00010 RET 


Routine Size: 17 bytes, Routine Base: S$CODE$S + 064C 


! Set offset to beginning 


1 1 § 1 ROUTINE start _record (type) = 

1908 1589 | 

1909 12351 1! 

1908 1 ¢ 1 This routine is called when a variable size record 

100 ! ? : (Like GSD or TIR) is about to be output. 

1011 1235 1! Inputs: 

1Ol¢ 1 § 1! 

131 1 7 § type = Type of variable record (GSD or TIR) 

1014 1238 1! 

1015 1239 1 ! Outputs: 

1016 1240 1! 

1017 1241 1! rec_filled = Address of next available byte in record 

1018 1 tg 1 !-<- 

1019 1243 1 

Ise 1244 BEGIN 

1953 i te d buffer Cobj$b typJ t ' Set dt 
record buffer Cobj$b_rectyp] = .type; ' Set recor pe 

1098 1547 S rec filled = 1; , 2 Q 

ose 1248 

1025 1249 RETURN true; 

1026 1520 

1027 1251 1 END; 


Save nothin 

TYPE, RECORD_BUFFER 
#1, REC_FILLED 

#1, RO 


PAR 
v04 


; Routine Size: 55 bytes, Routine Base: $CODE$ + 065D 


mM 7 
JECT 16-Sep-1984 02:13:17 AX=11 Bliss-32 V4.0-74 Page 38 PAF 
vives 00 12-808-1 3c ree NEGF IL SRETOBIECT O30¢4 . 133 04 
: 1029 1 1 ROUTINE put_entry (address, length) = : 
: 1080 1588 | ae . | 
3 18 1 1254 1 !--- | “ 
7 § lace 3 FE : 
3 8 1 § 1! This routine outputs a GSD/TIR entry into the current record ; 
3: 1034 1 1! buffer. The record buffer will be output automatically ‘ 
3; 1035 1258 1! when full. : 
; 1036 1259 1! 
; 1037 1260 1 ! Inputs: 
; 1038 1261 1! 
; 1039 1 6¢ 72 address = Address of GSD entry buffer 
; 1040 1265 1! Length = Length of entry 
3 196) ! ee : } rec_filled = Current offset into record buffer 
: 1908 1266 1 ! Outputs: 
: 1044 1267 1! 
; 1045 1268 1! rec_filled updated. 
3; 1046 1269 1 !--- 
3 1047 1270 1 3 6 
; 1048 1271 BEGIN 
3: 1049 15%¢ 
3 1320 \$¢7 IF (.rec_filled+.length) GTR obj$c_maxrecsiz ! If record too large, : 
3 1926 1275 BEGIN 
; 105 1276 put_record(record_buffer,.rec_filled); ! Output the record 
: 1054 1277 rec_filled = 1; ! Start at beginning again 
; 1055 16/8 END; 
; 1056 1279 
3 Ht 44 1580 CHSMOVE(. Length, .address, record_buffer+.rec_filled); ! Move into record buffer 
3; 1059 \e86 rec_filled = .rec_filled + .length; ! Update buffer position 
: 1060 128 
3; 1061 1284 RETURN true; 
; 1966 1285 
: 106 1286 1 END; 3 8 
007C 00000 PUT_ENTRY: 3 
«WORD Save R2,R3,R4,R5,R6 : 1252 3 
56 0000' CF 9€ 0000 MOVAB REC_FILLED, RO ; ; 
50 66 08 Ac C1 09 ADDL LENGTH REC_FILLED, RO : 1273 ; 
00000800 8F 50 01 CMPL = RO, #2048 F ; 
0D 15 0001 BLEQ 1$ 3 3 
66 3 001 PUSHL REC_FILLED 3: 1276 3 
F800 C6 9F 0001 PUSHAB RECORD_BUFFER 3 : 
97 =A b¢ fe Bie CALLS #2, PUT_RECORD : : 
66 3 1F OVL #1, REC FILLED 3 444 3 
50 F800 C6 f 0 g 1$: OV RECORD BUFFER, RO : 1280 ; 
00 B640 04 BC ae ae 0 MOVC LENGTH; @ADDRESS @REC_FILLEDCRO) 3 3 
66 8 ac CO 00 i ADDL LENGTH, REC_FILLED : 1282 ; 
0 01 ? 3 MOVL #1, RO > 1284 3 
4 00036 RET : 1286 : 
| : 
| ° 
| 


i se 1982 98:08:34 — EASGr IL 8SRESoasEtt-B507 Page 435 


SS 


$s 
3° 


MSGrIL SR OBJECT. “B30s1 (16) 


; | 
1984 02:13:17 Liss-32 V4.0-74 
opr bbe SSiues 2) lu snesoasert eset ro 3) 


; Routine Size: 26 ‘ytes, Routine Base: S$CODE$S + 0694 


; 1065 1287 1 ROUTINE end_record = 
, 3 1 : 1 
3; 1068 1290 1! 
8 H's 1291 1! This routine is called to signal that all entries have 
: 1971 : 2 : been output for now and to flush the current record buffer. | 
: 107 1294 1 | Inputs: 
Ha FRAY y soassetas tome toe Soot 
; : = t t 
1075 3 i < rec_ e ount le n buffer 
; ts: 
: 1099 2: FET Sesser 
; 1978 1300 1! None 
3; 107 1301 1 !<= 
; 1080 1302 1 
3; 1081 130 BEGIN | 
1088 1308 5 IF filled GTR 1 ! If anything in buff | 
s rec e ! t 
S 1084 1306 3 THEW” pha Prete 
; Hs $4 : 34 put_record(record_buffer, .rec_filled); ! then output record 
: 1087 1399 RETURN true; 
3; 1088 131? 
; 1089 1311 1 END; 
0000 00000 END_RECORD: 
«WORD Save nothing : 1287 
01 0000" CF 01 0000 CMPL REC_FILLED, #1 : 1505 
0D 15 Bas BLEQ 1$ ~ : 
0000' CF DdD 00009 PUSHL REC_FILLED 3; 1307 
0000° CF 9F 0000D PUSHAB RECORD_BUFFER ; 
FF69 CF b¢ FB 00011 CALLS ; ‘ PUT_R RECORD - 
50 1 pO 00016 1$: MOVL #1, RO” : 1309 
04 00019 T s 7511 
| 
| 
} 
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1818 0 Eltoon 


~-EXTRN LIBSSIGNAL 


4 PSECT SUMMARY 
: Name Bytes Attributes 
; $ 2056 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1710 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, ial |g b abt fs 
; SPLITS 156 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: occcceee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 95 0 581 00:01.0 
$ COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:OBJECT/OBJ=OBJ$:OBJECT MSRC$:OBJECT/UPDATE=(ENH$: OBJECT) 
Size: 1710 ¢ ge + 2212 data bytes 
Run Time: 00:3 1 
Elapsed Time: 01:30.6 


Lines/CPU Min: Set 
Lexemes/CPU-Min: 2044 
pone? Used: 198 pages 
Compilation Complete 


7 re) Bliss-32 V4.0-742 Page 41. 
1 MSGFIL.SRCJOBJECT.B32;1 7) 


P52 AH-BT13A-SE L EQUIPMENT CORPORATION 


VAX/VMS V4.0 ENTIAL AND PROPRIETARY 


